home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
fido
/
ROCK14.lha
/
nodelist.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-01-24
|
674b
|
32 lines
/*
Rock v1.3 - Fidonet mailer for point systems
Copyright (C) 1995 Jean-Marc Xiume'
This software is distributed under the terms of the
GNU General Public License. Read "license.doc" for more details.
*********** Find the node in nodelist and return needed data ***********
*/
options results
options failat 99
Parse upper arg address nodelist .
r=FindNode(address,"telephone",nodelist)
t=substr(r,3)
Address COMMAND "setenv rock_phone "t
if left(r,2)='0 ' then do
say t
exit 1
end
r=FindNode(address,'password',nodelist)
if left(r,2)='0 ' then p=""
else p=substr(r,3)
Address COMMAND "setenv rock_password "p
exit 0